﻿<%@ CODEPAGE=65001 %>
<% 'Option Explicit %>
<% 'On Error Resume Next %>
<% 'Response.Charset="UTF-8" %>
<% Response.Buffer=True %>
<!-- #include file="../../c_option.asp" -->
<!-- #include file="../../../zb_system/function/c_function.asp" -->
<!-- #include file="../../../zb_system/function/c_system_lib.asp" -->
<!-- #include file="../../../zb_system/function/c_system_base.asp" -->
<!-- #include file="../../../zb_system/function/c_system_plugin.asp" -->
<!-- #include file="../p_config.asp" -->
<!-- #include file="function.asp" -->

<%
Call System_Initialize()
Call Bcastr_Initialize()

'检查非法链接
Call CheckReference("")

'检查权限
If BlogUser.Level>1 Then Call ShowError(6)
If CheckPluginState("Bcastr")=False Then Call ShowError(48)

BlogTitle = "Bcastr幻灯片"
%>
<!--#include file="..\..\..\zb_system\admin\admin_header.asp"-->
<!--#include file="..\..\..\zb_system\admin\admin_top.asp"-->
<div id="divMain"><div id="ShowBlogHint"><%Call GetBlogHint()%></div>
<%
Dim Action
Action = Request.QueryString("act")
Select Case Action
	Case "del"
		Call del
	Case "Save"
		Call Save
	Case "Edit"
		Call Edit
	Case "Config"
		Call Config
	Case "SaveConfig"
		Call SaveConfig
	Case Else
		Call List
End Select
%>
</div>
<!--#include file="..\..\..\zb_system\admin\admin_footer.asp"-->
<%
Call System_Terminate()

'If Err.Number<>0 Then
'	Call ShowError(0)
'End If
%>